From fbc3cbad9e77efe7774162ed03b4a4b8c3b8e2cf Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 15 Nov 2012 21:44:02 -0500 Subject: [PATCH] * lisp/faces.el (face-underline-p): Use face-attribute-specified-or. --- lisp/ChangeLog | 4 ++++ lisp/faces.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 23639626f9b..854f64d1772 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-11-16 Glenn Morris + + * faces.el (face-underline-p): Use face-attribute-specified-or. + 2012-11-15 Juanma Barranquero * emacs-lisp/cl-macs.el (cl-loop, cl-do, cl-do*): Doc fixes. diff --git a/lisp/faces.el b/lisp/faces.el index d07c4d6f5a5..9e0ca962499 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -497,7 +497,7 @@ with the `default' face (which is always completely specified)." If the optional argument FRAME is given, report on face FACE in that frame. If FRAME is t, report on the defaults for face FACE (for new frames). If FRAME is omitted or nil, use the selected frame." - (not (memq (face-attribute face :underline frame) '(unspecified nil)))) + (face-attribute-specified-or (face-attribute face :underline frame) nil)) (defun face-inverse-video-p (face &optional frame) -- 2.30.2